Option Explicit
Sub D_Sample025()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)			'Nu@
    'ǳƨ즹
    With mySht
        .Unprotect 					'SKXɭ
        .Unprotect Password:="Password" 'KXɭ
 									'w"Password"PKX
    End With
    Set mySht = Nothing					'
End Sub

